library(ggplot2)
library(forecast)
library(plotly)
theme_set(theme_classic())
# Subset data
nottem_small <- window(nottem, start=c(1920, 1), end=c(1925, 12)) # subset a smaller timewindow
# Plot
gg <- ggseasonplot(AirPassengers) + labs(title="Seasonal plot: International Airline Passengers")
ggplotly(gg)